program updatesolver;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  solver = class
    a, b, c: real;
    procedure solve;
  end;


procedure solver.solve;
var
d: real;
begin
  d:=b*b-4*a*c;
  if a<> 0 then begin
    if d>= 0 then begin
      writeln((-b+sqrt(d))/2*a);
      if d<>0 then
        writeln((-b-sqrt(d))/2*a);
    end else
      Writeln('No solutions')
  end else
    writeln(-c/b);
end;
var
  s1:solver;
begin
  s1:=solver.Create;
  writeln('enter a, b, c');
  readln(s1.a, s1.b, s1.c);
  s1.solve;
  readln;
end.
